home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / objectex / ex3.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  412 b   |  21 lines
  1. Program ex3;
  2.  
  3. { Program to demonstrate TRect.Union }
  4.  
  5. Uses objects;
  6.  
  7.  
  8. Var ARect,BRect,CRect : TRect;
  9.     
  10. begin
  11.   ARect.Assign(10,10,20,20);
  12.   BRect.Assign(15,15,25,25);
  13.   { CRect is union of ARect and BRect }
  14.   CRect.Assign(10,10,25,25);
  15.   { Calculate it explicitly}
  16.   ARect.Union(BRect);
  17.   If ARect.Equals(CRect) Then
  18.     Writeln ('ARect equals CRect')
  19.   Else
  20.     Writeln ('ARect does not equal CRect !');
  21. end.